home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Internal_5_printscript.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  7.7 KB  |  122 lines
  1. on printscript
  2.   global printer, gPropFont
  3.   put EMPTY into field "printfield"
  4.   set doc to new(xtra("PrintOMatic"))
  5.   if not objectp(doc) then
  6.     alert("There is no currently selected printer. Printing features are disabled.")
  7.   else
  8.     cursor(4)
  9.     repeat with i = 1 to the number of lines in field "masterfield"
  10.       if the number of chars in line i of field "masterfield" < 2 then
  11.         exit repeat
  12.       end if
  13.       put "_______________________________" & RETURN after field "printfield"
  14.       put "Quote Item: " & i & RETURN after field "printfield"
  15.       put "Quantity: " & item 16 of line i of field "masterfield" & RETURN after field "printfield"
  16.       if item 1 of line i of field "masterfield" contains "caster" then
  17.         put "Caster Type: " & item 1 of line i of field "masterfield" & RETURN after field "printfield"
  18.         put "Model Number " & item 2 of line i of field "masterfield" & RETURN after field "printfield"
  19.         put "Mounting: " & item 3 of line i of field "masterfield" & RETURN after field "printfield"
  20.         put "Wheel Diameter: " & item 4 of line i of field "masterfield" & RETURN after field "printfield"
  21.         put "Tread Width: " & item 5 of line i of field "masterfield" & RETURN after field "printfield"
  22.         put "Capacity Per Caster: " & item 6 of line i of field "masterfield" & RETURN after field "printfield"
  23.         put "Wheel Type: " & item 7 of line i of field "masterfield" & RETURN after field "printfield"
  24.         put "Bearing: " & item 8 of line i of field "masterfield" & RETURN after field "printfield"
  25.         put "Load Height: " & item 9 of line i of field "masterfield" & RETURN after field "printfield"
  26.         put "Swivel Radius: " & item 10 of line i of field "masterfield" & RETURN after field "printfield"
  27.         put "Fork Leg Spacing: " & item 11 of line i of field "masterfield" & RETURN after field "printfield"
  28.         put "Approximate Weight: " & item 12 of line i of field "masterfield" & RETURN after field "printfield"
  29.         put "Options: " & item 13 of line i of field "masterfield" & RETURN after field "printfield"
  30.         put "_______________________________" & RETURN after field "printfield"
  31.       end if
  32.       if item 1 of line i of field "masterfield" contains "wheel" then
  33.         put "Wheel Type: " & item 1 of line i of field "masterfield" & RETURN after field "printfield"
  34.         put "Model Number " & item 2 of line i of field "masterfield" & RETURN after field "printfield"
  35.         put "Wheel Diameter: " & item 3 of line i of field "masterfield" & RETURN after field "printfield"
  36.         put "Tread Width: " & item 4 of line i of field "masterfield" & RETURN after field "printfield"
  37.         put "Capacity Per Caster: " & item 5 of line i of field "masterfield" & RETURN after field "printfield"
  38.         put "Bearing: " & item 6 of line i of field "masterfield" & RETURN after field "printfield"
  39.         put "Wheel Bearing Bore: " & item 7 of line i of field "masterfield" & RETURN after field "printfield"
  40.         put "Wheel Hub Length: " & item 8 of line i of field "masterfield" & RETURN after field "printfield"
  41.         put "Spanner Bushing Bore: " & item 9 of line i of field "masterfield" & RETURN after field "printfield"
  42.         put "Spanner Bushing Length: " & item 10 of line i of field "masterfield" & RETURN after field "printfield"
  43.         put "Approx. Weight: " & item 11 of line i of field "masterfield" & RETURN after field "printfield"
  44.         put "Options: " & item 13 of line i of field "masterfield" & RETURN after field "printfield"
  45.         put "_______________________________" & RETURN after field "printfield"
  46.       end if
  47.       if item 1 of line i of field "masterfield" contains "floor lock" then
  48.         put "Product: " & item 1 of line i of field "masterfield" & RETURN after field "printfield"
  49.         put "Model Number " & item 2 of line i of field "masterfield" & RETURN after field "printfield"
  50.         put "Top Plate Size: " & item 3 of line i of field "masterfield" & RETURN after field "printfield"
  51.         put "Extended Height: " & item 4 of line i of field "masterfield" & RETURN after field "printfield"
  52.         put "Retracted Height: " & item 5 of line i of field "masterfield" & RETURN after field "printfield"
  53.         put "Bolt Hole Spacing: " & item 6 of line i of field "masterfield" & RETURN after field "printfield"
  54.         put "Bolt Hole Size: " & item 7 of line i of field "masterfield" & RETURN after field "printfield"
  55.         put "Weight: " & item 8 of line i of field "masterfield" & RETURN after field "printfield"
  56.         put "Used with Caster Models: " & item 9 of line i of field "masterfield" & RETURN after field "printfield"
  57.         put "_______________________________" & RETURN after field "printfield"
  58.       end if
  59.       if item 1 of line i of field "masterfield" contains "bumper" then
  60.         put "Product Type: " & item 1 of line i of field "masterfield" & RETURN after field "printfield"
  61.         put "Model Number " & item 2 of line i of field "masterfield" & RETURN after field "printfield"
  62.         put "Bumper Diameter: " & item 3 of line i of field "masterfield" & RETURN after field "printfield"
  63.         put "Hole Diameter: " & item 4 of line i of field "masterfield" & RETURN after field "printfield"
  64.         put "Thickness: " & item 5 of line i of field "masterfield" & RETURN after field "printfield"
  65.         put "Mounting Holes: " & item 6 of line i of field "masterfield" & RETURN after field "printfield"
  66.         put "Length: " & item 7 of line i of field "masterfield" & RETURN after field "printfield"
  67.         put "Width: " & item 8 of line i of field "masterfield" & RETURN after field "printfield"
  68.         put "Inserts: " & item 9 of line i of field "masterfield" & RETURN after field "printfield"
  69.         put "_______________________________" & RETURN after field "printfield"
  70.       end if
  71.     end repeat
  72.     setDocumentName(doc, "Colson CD-ROM Quote List")
  73.     setMargins(doc, rect(72, 60, 72, 43))
  74.     set w to getPageWidth(doc)
  75.     set h to getPageHeight(doc)
  76.     setPageNumSymbol(doc, "├₧")
  77.     setTextFont(doc, gPropFont)
  78.     setTextSize(doc, 14)
  79.     setTextStyle(doc, "normal, italic, bold")
  80.     setTextJust(doc, "left")
  81.     drawText(doc, "Colson CD-ROM Product Quote List", point(0, 8))
  82.     setTextSize(doc, 9)
  83.     setTextStyle(doc, "normal")
  84.     newFrame(doc, rect(280, 0, 410, 16), 0)
  85.     set the itemDelimiter to "\"
  86.     put the last item in field "orderfile" into field "orderfile"
  87.     set the itemDelimiter to ","
  88.     append(doc, the last item in field "orderfile", 0)
  89.     setTextJust(doc, "right")
  90.     setTextSize(doc, 9)
  91.     setTextStyle(doc, "normal,italic")
  92.     drawText(doc, "printed" && the date, point(w, 8))
  93.     drawLine(doc, point(0, 12), point(2, 12))
  94.     setTextJust(doc, "left")
  95.     setTextStyle(doc, "normal, italic, bold")
  96.     drawText(doc, "Fax this form to Colson at 1-800-356-6708", point(0, 25))
  97.     drawText(doc, "You will receive a quote from your Colson Distributor as soon as possible", point(0, 34))
  98.     setTextStyle(doc, "normal,bold")
  99.     newFrame(doc, rect(0, 45, 210, 110), 0)
  100.     append(doc, "To:" & RETURN & "Colson Caster Corporation" & RETURN & "3700 Airport Road" & RETURN & "Jonesboro, AR 72401" & RETURN & "Phone: 800-643-5515" & RETURN & "Fax: 800-356-6708", 0)
  101.     newFrame(doc, rect(220, 45, 490, 200), 0)
  102.     append(doc, field "customer", 0)
  103.     setTextJust(doc, "right")
  104.     setTextSize(doc, 10)
  105.     setTextStyle(doc, "normal,italic")
  106.     drawText(doc, "Page ├₧", point(2, h))
  107.     setTextJust(doc, "left")
  108.     newPage(doc)
  109.     setTextFont(doc, gPropFont)
  110.     setTextSize(doc, 9)
  111.     setTextStyle(doc, "normal")
  112.     newFrame(doc, rect(0, 150, 210, h), 0)
  113.     newFrame(doc, rect(250, 150, 460, h), 1)
  114.     setTextFont(doc, gPropFont)
  115.     append(doc, field "printfield")
  116.     if doJobSetup(doc) then
  117.       print(doc)
  118.     end if
  119.     cursor(-1)
  120.   end if
  121. end
  122.